/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / lisp-mnt.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 79 20 20 33 20 32 | on Tue |May  3 2|
|00000040| 31 3a 35 31 3a 32 35 20 | 31 39 39 34 0a 3b 3b 3b |1:51:25 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 6c 69 73 70 2d | 6d 6e 74 2e 65 6c 0a 3b |sp/lisp-|mnt.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 32 32 2e 39 | 32 2e 32 2e 0a 3b 3b 3b | 19.22.9|2.2..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 2f 67 64 2f 67 |  (error| "`/gd/g|
|000001a0| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|000001b0| 73 70 2f 6c 69 73 70 2d | 6d 6e 74 2e 65 6c 27 20 |sp/lisp-|mnt.el' |
|000001c0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001d0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 62 | Emacs 1|9"))..(b|
|000001e0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c0 c2 |yte-code| "..!...|
|000001f0| 21 88 c3 c4 c5 5c 22 88 | c3 c6 c7 5c 22 88 c3 c8 |!....\".|...\"...|
|00000200| c9 5c 22 88 c3 ca cb 5c | 22 88 c3 cc cd 5c 22 88 |.\"....\|"....\".|
|00000210| c3 ce cf 5c 22 88 c3 d0 | d1 5c 22 88 c3 d2 d3 5c |...\"...|.\"....\|
|00000220| 22 88 c3 d4 d5 5c 22 88 | c3 d6 d7 5c 22 88 c3 d8 |"....\".|...\"...|
|00000230| d9 5c 22 88 c3 da db 5c | 22 88 c3 dc dd 5c 22 88 |.\"....\|"....\".|
|00000240| c3 de df 5c 22 88 c3 e0 | e1 5c 22 88 e2 16 23 c0 |...\"...|.\"...#.|
|00000250| 87 22 20 5b 72 65 71 75 | 69 72 65 20 70 69 63 74 |." [requ|ire pict|
|00000260| 75 72 65 20 65 6d 61 63 | 73 62 75 67 20 64 65 66 |ure emac|sbug def|
|00000270| 61 6c 69 61 73 20 6c 6d | 2d 73 65 63 74 69 6f 6e |alias lm|-section|
|00000280| 2d 6d 61 72 6b 20 23 5b | 28 68 64 20 26 6f 70 74 |-mark #[|(hd &opt|
|00000290| 69 6f 6e 61 6c 20 61 66 | 74 65 72 29 20 22 8a c0 |ional af|ter) "..|
|000002a0| 19 65 62 88 c2 c3 5c 66 | c5 51 c6 c0 23 85 1d 00 |.eb...\f|.Q..#...|
|000002b0| c7 79 88 0e 08 83 1c 00 | c9 79 88 60 2a 87 22 20 |.y......|.y.`*." |
|000002c0| 5b 74 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |[t case-|fold-sea|
|000002d0| 72 63 68 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |rch re-s|earch-fo|
|000002e0| 72 77 61 72 64 20 22 5e | 3b 3b 3b 20 22 20 68 64 |rward "^|;;; " hd|
|000002f0| 20 22 3a 24 22 20 6e 69 | 6c 20 30 20 61 66 74 65 | ":$" ni|l 0 afte|
|00000300| 72 20 31 5d 20 34 5d 20 | 6c 6d 2d 63 6f 64 65 2d |r 1] 4] |lm-code-|
|00000310| 6d 61 72 6b 20 23 5b 6e | 69 6c 20 22 c0 c1 21 87 |mark #[n|il "..!.|
|00000320| 22 20 5b 6c 6d 2d 73 65 | 63 74 69 6f 6e 2d 6d 61 |" [lm-se|ction-ma|
|00000330| 72 6b 20 22 43 6f 64 65 | 22 5d 20 32 5d 20 6c 6d |rk "Code|"] 2] lm|
|00000340| 2d 68 65 61 64 65 72 20 | 23 5b 28 68 64 29 20 22 |-header |#[(hd) "|
|00000350| 65 62 88 c0 19 c2 c3 5c | 66 c5 51 c6 20 c0 23 85 |eb.....\|f.Q. .#.|
|00000360| 16 00 c7 94 c7 95 7b 29 | 87 22 20 5b 74 20 63 61 |......{)|." [t ca|
|00000370| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 72 |se-fold-|search r|
|00000380| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00000390| 20 22 5e 3b 3b 20 22 20 | 68 64 20 22 3a 20 5c 5c | "^;; " |hd ": \\|
|000003a0| 28 2e 2a 5c 5c 29 22 20 | 6c 6d 2d 63 6f 64 65 2d |(.*\\)" |lm-code-|
|000003b0| 6d 61 72 6b 20 31 5d 20 | 34 5d 20 6c 6d 2d 68 65 |mark 1] |4] lm-he|
|000003c0| 61 64 65 72 2d 6d 75 6c | 74 69 6c 69 6e 65 20 23 |ader-mul|tiline #|
|000003d0| 5b 28 68 64 29 20 22 8a | 65 62 88 8a c0 09 21 29 |[(hd) ".|eb....!)|
|000003e0| 89 1a 83 28 00 c3 79 88 | 5c 6e 43 12 c4 c5 21 83 |...(..y.|\nC...!.|
|000003f0| 28 00 c3 94 c3 95 7b 5c | 6e 42 12 c3 79 88 82 14 |(.....{\|nB..y...|
|00000400| 00 5c 6e 2a 87 22 20 5b | 6c 6d 2d 68 65 61 64 65 |.\n*." [|lm-heade|
|00000410| 72 20 68 64 20 72 65 73 | 20 31 20 6c 6f 6f 6b 69 |r hd res| 1 looki|
|00000420| 6e 67 2d 61 74 20 22 5e | 3b 3b 09 5c 5c 28 2e 2a |ng-at "^|;;.\\(.*|
|00000430| 5c 5c 29 22 5d 20 33 5d | 20 6c 6d 2d 73 75 6d 6d |\\)"] 3]| lm-summ|
|00000440| 61 72 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ary #[(&|optional|
|00000450| 20 66 69 6c 65 29 20 22 | 8a 08 83 09 00 c1 08 21 | file) "|.......!|
|00000460| 88 65 62 88 c2 c3 21 85 | 17 00 c4 94 c4 95 7b 08 |.eb...!.|......{.|
|00000470| 83 1f 00 c5 70 21 88 29 | 87 22 20 5b 66 69 6c 65 |....p!.)|." [file|
|00000480| 20 66 69 6e 64 2d 66 69 | 6c 65 20 6c 6f 6f 6b 69 | find-fi|le looki|
|00000490| 6e 67 2d 61 74 20 22 5e | 3b 3b 3b 20 5b 5e 20 5d |ng-at "^|;;; [^ ]|
|000004a0| 2b 20 2d 2d 2d 20 5c 5c | 28 2e 2a 5c 5c 29 22 20 |+ --- \\|(.*\\)" |
|000004b0| 31 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 5d 20 33 |1 kill-b|uffer] 3|
|000004c0| 5d 20 6c 6d 2d 63 72 61 | 63 6b 2d 61 64 64 72 65 |] lm-cra|ck-addre|
|000004d0| 73 73 20 23 5b 28 78 29 | 20 22 c0 c1 5c 6e 5c 22 |ss #[(x)| "..\n\"|
|000004e0| 83 15 00 5c 6e c3 94 c3 | 95 4f 5c 6e c4 94 c4 95 |...\n...|.O\n....|
|000004f0| 4f 42 87 c0 c5 5c 6e 5c | 22 83 2a 00 5c 6e c4 94 |OB...\n\|".*.\n..|
|00000500| c4 95 4f 5c 6e c3 94 c3 | 95 4f 42 87 c0 c6 5c 6e |..O\n...|.OB...\n|
|00000510| 5c 22 83 35 00 c7 5c 6e | 42 87 5c 6e c7 42 87 22 |\".5..\n|B.\n.B."|
|00000520| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00000530| 5c 5c 28 2e 2b 5c 5c 29 | 20 5b 28 3c 5d 5c 5c 28 |\\(.+\\)| [(<]\\(|
|00000540| 5c 5c 53 2d 2b 40 5c 5c | 53 2d 2b 5c 5c 29 5b 3e |\\S-+@\\|S-+\\)[>|
|00000550| 29 5d 22 20 78 20 31 20 | 32 20 22 5c 5c 28 5c 5c |)]" x 1 |2 "\\(\\|
|00000560| 53 2d 2b 40 5c 5c 53 2d | 2b 5c 5c 29 20 5b 28 3c |S-+@\\S-|+\\) [(<|
|00000570| 5d 5c 5c 28 2e 2a 5c 5c | 29 5b 3e 29 5d 22 20 22 |]\\(.*\\|)[>)]" "|
|00000580| 5c 5c 53 2d 2b 40 5c 5c | 53 2d 2b 22 20 6e 69 6c |\\S-+@\\|S-+" nil|
|00000590| 5d 20 34 5d 20 6c 6d 2d | 61 75 74 68 6f 72 73 20 |] 4] lm-|authors |
|000005a0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 66 69 6c |#[(&opti|onal fil|
|000005b0| 65 29 20 22 8a 08 83 09 | 00 c1 08 21 88 c2 c3 21 |e) "....|...!...!|
|000005c0| 1c c5 c6 5c 66 5c 22 08 | 83 19 00 c7 70 21 88 2a |...\f\".|....p!.*|
|000005d0| 87 22 20 5b 66 69 6c 65 | 20 66 69 6e 64 2d 66 69 |." [file| find-fi|
|000005e0| 6c 65 20 6c 6d 2d 68 65 | 61 64 65 72 2d 6d 75 6c |le lm-he|ader-mul|
|000005f0| 74 69 6c 69 6e 65 20 22 | 61 75 74 68 6f 72 22 20 |tiline "|author" |
|00000600| 61 75 74 68 6f 72 6c 69 | 73 74 20 6d 61 70 63 61 |authorli|st mapca|
|00000610| 72 20 6c 6d 2d 63 72 61 | 63 6b 2d 61 64 64 72 65 |r lm-cra|ck-addre|
|00000620| 73 73 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |ss kill-|buffer] |
|00000630| 33 5d 20 6c 6d 2d 6d 61 | 69 6e 74 61 69 6e 65 72 |3] lm-ma|intainer|
|00000640| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 | #[(&opt|ional fi|
|00000650| 6c 65 29 20 22 8a 08 83 | 09 00 c1 08 21 88 c2 c3 |le) "...|....!...|
|00000660| 21 89 1c 83 17 00 c5 5c | 66 21 82 1a 00 c6 20 40 |!......\|f!.... @|
|00000670| 29 08 83 23 00 c7 70 21 | 88 29 87 22 20 5b 66 69 |)..#..p!|.)." [fi|
|00000680| 6c 65 20 66 69 6e 64 2d | 66 69 6c 65 20 6c 6d 2d |le find-|file lm-|
|00000690| 68 65 61 64 65 72 20 22 | 6d 61 69 6e 74 61 69 6e |header "|maintain|
|000006a0| 65 72 22 20 6d 61 69 6e | 74 20 6c 6d 2d 63 72 61 |er" main|t lm-cra|
|000006b0| 63 6b 2d 61 64 64 72 65 | 73 73 20 6c 6d 2d 61 75 |ck-addre|ss lm-au|
|000006c0| 74 68 6f 72 73 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |thors ki|ll-buffe|
|000006d0| 72 5d 20 34 5d 20 6c 6d | 2d 63 72 65 61 74 69 6f |r] 4] lm|-creatio|
|000006e0| 6e 2d 64 61 74 65 20 23 | 5b 28 26 6f 70 74 69 6f |n-date #|[(&optio|
|000006f0| 6e 61 6c 20 66 69 6c 65 | 29 20 22 8a 08 83 09 00 |nal file|) ".....|
|00000700| c1 08 21 88 c2 c3 21 08 | 83 14 00 c4 70 21 88 29 |..!...!.|....p!.)|
|00000710| 87 22 20 5b 66 69 6c 65 | 20 66 69 6e 64 2d 66 69 |." [file| find-fi|
|00000720| 6c 65 20 6c 6d 2d 68 65 | 61 64 65 72 20 22 63 72 |le lm-he|ader "cr|
|00000730| 65 61 74 65 64 22 20 6b | 69 6c 6c 2d 62 75 66 66 |eated" k|ill-buff|
|00000740| 65 72 5d 20 33 5d 20 6c | 6d 2d 6c 61 73 74 2d 6d |er] 3] l|m-last-m|
|00000750| 6f 64 69 66 69 65 64 2d | 64 61 74 65 20 23 5b 28 |odified-|date #[(|
|00000760| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 69 6c 65 29 20 |&optiona|l file) |
|00000770| 22 8a 08 83 09 00 c1 08 | 21 88 65 62 88 c2 c3 c4 |".......|!.eb....|
|00000780| 20 c5 23 85 2b 00 c6 c7 | c8 94 c8 95 7b c9 ca 94 | .#.+...|....{...|
|00000790| ca 95 7b 21 cb 38 cc 94 | cc 95 7b 24 08 83 33 00 |..{!.8..|..{$..3.|
|000007a0| cd 70 21 88 29 87 22 20 | 5b 66 69 6c 65 20 66 69 |.p!.)." |[file fi|
|000007b0| 6e 64 2d 66 69 6c 65 20 | 72 65 2d 73 65 61 72 63 |nd-file |re-searc|
|000007c0| 68 2d 66 6f 72 77 61 72 | 64 20 22 5c 5c 24 49 64 |h-forwar|d "\\$Id|
|000007d0| 3a 20 5b 5e 20 5d 2b 20 | 5b 5e 20 5d 2b 20 5c 5c |: [^ ]+ |[^ ]+ \\|
|000007e0| 28 5b 5e 2f 5d 2b 5c 5c | 29 2f 5c 5c 28 5b 5e 2f |([^/]+\\|)/\\([^/|
|000007f0| 5d 2b 5c 5c 29 2f 5c 5c | 28 5b 5e 20 5d 2b 5c 5c |]+\\)/\\|([^ ]+\\|
|00000800| 29 20 22 20 6c 6d 2d 63 | 6f 64 65 2d 6d 61 72 6b |) " lm-c|ode-mark|
|00000810| 20 74 20 66 6f 72 6d 61 | 74 20 22 25 73 20 25 73 | t forma|t "%s %s|
|00000820| 20 25 73 22 20 33 20 73 | 74 72 69 6e 67 2d 74 6f | %s" 3 s|tring-to|
|00000830| 2d 69 6e 74 20 32 20 28 | 22 22 20 22 4a 61 6e 22 |-int 2 (|"" "Jan"|
|00000840| 20 22 46 65 62 22 20 22 | 4d 61 72 22 20 22 41 70 | "Feb" "|Mar" "Ap|
|00000850| 72 22 20 22 4d 61 79 22 | 20 22 4a 75 6e 22 20 22 |r" "May"| "Jun" "|
|00000860| 4a 75 6c 22 20 22 41 75 | 67 22 20 22 53 65 70 22 |Jul" "Au|g" "Sep"|
|00000870| 20 22 4f 63 74 22 20 22 | 4e 6f 76 22 20 22 44 65 | "Oct" "|Nov" "De|
|00000880| 63 22 29 20 31 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |c") 1 ki|ll-buffe|
|00000890| 72 5d 20 36 5d 20 6c 6d | 2d 76 65 72 73 69 6f 6e |r] 6] lm|-version|
|000008a0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 | #[(&opt|ional fi|
|000008b0| 6c 65 29 20 22 8a 08 83 | 09 00 c1 08 21 88 c2 c3 |le) "...|....!...|
|000008c0| 21 86 41 00 c4 20 1d 65 | 62 88 c6 c7 0d c8 23 83 |!.A.. .e|b.....#.|
|000008d0| 25 00 c9 94 c9 95 7b 82 | 40 00 c6 ca cb 21 ca cc |%.....{.|@....!..|
|000008e0| cd 20 21 21 ce 51 0d c8 | 23 83 3f 00 c9 94 c9 95 |. !!.Q..|#.?.....|
|000008f0| 7b 82 40 00 cf 29 08 83 | 49 00 d0 70 21 88 29 87 |{.@..)..|I..p!.).|
|00000900| 22 20 5b 66 69 6c 65 20 | 66 69 6e 64 2d 66 69 6c |" [file |find-fil|
|00000910| 65 20 6c 6d 2d 68 65 61 | 64 65 72 20 22 76 65 72 |e lm-hea|der "ver|
|00000920| 73 69 6f 6e 22 20 6c 6d | 2d 63 6f 64 65 2d 6d 61 |sion" lm|-code-ma|
|00000930| 72 6b 20 68 65 61 64 65 | 72 2d 6d 61 78 20 72 65 |rk heade|r-max re|
|00000940| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000950| 22 5c 5c 24 49 64 3a 20 | 5b 5e 20 5d 2b 20 5c 5c |"\\$Id: |[^ ]+ \\|
|00000960| 28 5b 5e 20 5d 2b 5c 5c | 29 20 22 20 74 20 31 20 |([^ ]+\\|) " t 1 |
|00000970| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 22 40 28 |regexp-q|uote "@(|
|00000980| 23 29 22 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 6e 6f |#)" file|-name-no|
|00000990| 6e 64 69 72 65 63 74 6f | 72 79 20 62 75 66 66 65 |ndirecto|ry buffe|
|000009a0| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 09 5c 5c |r-file-n|ame ".\\|
|000009b0| 28 5b 30 31 32 33 34 35 | 36 37 39 2e 5d 2a 5c 5c |([012345|679.]*\\|
|000009c0| 29 22 20 6e 69 6c 20 6b | 69 6c 6c 2d 62 75 66 66 |)" nil k|ill-buff|
|000009d0| 65 72 5d 20 35 5d 20 6c | 6d 2d 6b 65 79 77 6f 72 |er] 5] l|m-keywor|
|000009e0| 64 73 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ds #[(&o|ptional |
|000009f0| 66 69 6c 65 29 20 22 8a | 08 83 09 00 c1 08 21 88 |file) ".|......!.|
|00000a00| c2 c3 21 89 1c 85 13 00 | 5c 66 97 29 08 83 1c 00 |..!.....|\f.)....|
|00000a10| c5 70 21 88 29 87 22 20 | 5b 66 69 6c 65 20 66 69 |.p!.)." |[file fi|
|00000a20| 6e 64 2d 66 69 6c 65 20 | 6c 6d 2d 68 65 61 64 65 |nd-file |lm-heade|
|00000a30| 72 20 22 6b 65 79 77 6f | 72 64 73 22 20 6b 65 79 |r "keywo|rds" key|
|00000a40| 77 6f 72 64 73 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |words ki|ll-buffe|
|00000a50| 72 5d 20 34 5d 20 6c 6d | 2d 61 64 61 70 74 65 64 |r] 4] lm|-adapted|
|00000a60| 2d 62 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |-by #[(&|optional|
|00000a70| 20 66 69 6c 65 29 20 22 | 8a 08 83 09 00 c1 08 21 | file) "|.......!|
|00000a80| 88 c2 c3 21 08 83 14 00 | c4 70 21 88 29 87 22 20 |...!....|.p!.)." |
|00000a90| 5b 66 69 6c 65 20 66 69 | 6e 64 2d 66 69 6c 65 20 |[file fi|nd-file |
|00000aa0| 6c 6d 2d 68 65 61 64 65 | 72 20 22 61 64 61 70 74 |lm-heade|r "adapt|
|00000ab0| 65 64 2d 62 79 22 20 6b | 69 6c 6c 2d 62 75 66 66 |ed-by" k|ill-buff|
|00000ac0| 65 72 5d 20 33 5d 20 6c | 6d 2d 63 6f 6d 6d 65 6e |er] 3] l|m-commen|
|00000ad0| 74 61 72 79 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |tary #[(|&optiona|
|00000ae0| 6c 20 66 69 6c 65 29 20 | 22 8a 08 83 09 00 c1 08 |l file) |".......|
|00000af0| 21 88 c2 c3 c4 5c 22 c2 | c5 21 c2 c6 21 1e 07 1e |!....\".|.!..!...|
|00000b00| 08 89 1e 09 85 2f 00 0e | 08 83 2a 00 0e 09 0e 08 |...../..|..*.....|
|00000b10| 7b 82 2f 00 0e 09 0e 07 | 7b 2b 08 83 38 00 ca 70 |{./.....|{+..8..p|
|00000b20| 21 88 29 87 22 20 5b 66 | 69 6c 65 20 66 69 6e 64 |!.)." [f|ile find|
|00000b30| 2d 66 69 6c 65 20 6c 6d | 2d 73 65 63 74 69 6f 6e |-file lm|-section|
|00000b40| 2d 6d 61 72 6b 20 22 43 | 6f 6d 6d 65 6e 74 61 72 |-mark "C|ommentar|
|00000b50| 79 22 20 74 20 22 43 68 | 61 6e 67 65 20 4c 6f 67 |y" t "Ch|ange Log|
|00000b60| 22 20 22 43 6f 64 65 22 | 20 63 6f 64 65 20 63 68 |" "Code"| code ch|
|00000b70| 61 6e 67 65 2d 6c 6f 67 | 20 63 6f 6d 6d 65 6e 74 |ange-log| comment|
|00000b80| 61 72 79 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |ary kill|-buffer]|
|00000b90| 20 35 5d 20 69 6e 73 65 | 72 74 2d 61 74 2d 63 6f | 5] inse|rt-at-co|
|00000ba0| 6c 75 6d 6e 20 23 5b 28 | 63 6f 6c 20 26 72 65 73 |lumn #[(|col &res|
|00000bb0| 74 20 70 69 65 63 65 73 | 29 20 22 69 08 56 83 09 |t pieces|) "i.V..|
|00000bc0| 00 c1 63 88 c2 08 21 88 | c3 c4 0d 5c 22 87 22 20 |..c...!.|...\"." |
|00000bd0| 5b 63 6f 6c 20 22 5c 6e | 22 20 6d 6f 76 65 2d 74 |[col "\n|" move-t|
|00000be0| 6f 2d 63 6f 6c 75 6d 6e | 2d 66 6f 72 63 65 20 61 |o-column|-force a|
|00000bf0| 70 70 6c 79 20 69 6e 73 | 65 72 74 20 70 69 65 63 |pply ins|ert piec|
|00000c00| 65 73 5d 20 33 5d 20 31 | 36 20 6c 6d 2d 63 6f 6d |es] 3] 1|6 lm-com|
|00000c10| 6d 65 6e 74 2d 63 6f 6c | 75 6d 6e 5d 20 33 29 0a |ment-col|umn] 3).|
|00000c20| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6d 2d 76 65 |(defalia|s 'lm-ve|
|00000c30| 72 69 66 79 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |rify #[(|&optiona|
|00000c40| 6c 20 66 69 6c 65 20 73 | 68 6f 77 6f 6b 29 20 22 |l file s|howok) "|
|00000c50| 08 83 1a 00 c1 08 21 83 | 1a 00 c2 c3 c4 21 21 88 |......!.|.....!!.|
|00000c60| c5 20 88 c6 c7 c8 08 21 | 5c 22 87 8a 08 83 23 00 |. .....!|\"....#.|
|00000c70| c9 08 21 88 ca 20 84 2c | 00 cb 82 45 00 cc 20 84 |..!.. .,|...E.. .|
|00000c80| 35 00 cd 82 45 00 64 62 | 88 ce 79 88 cf d0 08 d1 |5...E.db|..y.....|
|00000c90| 51 21 85 45 00 d2 08 83 | 4d 00 d3 70 21 88 29 87 |Q!.E....|M..p!.).|
|00000ca0| 22 20 5b 66 69 6c 65 20 | 66 69 6c 65 2d 64 69 72 |" [file |file-dir|
|00000cb0| 65 63 74 6f 72 79 2d 70 | 20 73 77 69 74 63 68 2d |ectory-p| switch-|
|00000cc0| 74 6f 2d 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |to-buffe|r get-bu|
|00000cd0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 6c 6d |ffer-cre|ate "*lm|
|00000ce0| 2d 76 65 72 69 66 79 2a | 22 20 65 72 61 73 65 2d |-verify*|" erase-|
|00000cf0| 62 75 66 66 65 72 20 6d | 61 70 63 61 72 20 23 5b |buffer m|apcar #[|
|00000d00| 28 66 29 20 22 c0 c1 5c | 6e 5c 22 85 2d 00 c3 5c |(f) "..\|n\".-..\|
|00000d10| 6e 21 89 1c 83 1d 00 5c | 6e c5 b1 02 88 c6 0e 07 |n!.....\|n.......|
|00000d20| 5c 66 c8 23 82 2c 00 0e | 09 85 2c 00 5c 6e c5 b1 |\f.#.,..|..,.\n..|
|00000d30| 02 88 c6 0e 07 ca 5c 22 | 29 87 22 20 5b 73 74 72 |......\"|)." [str|
|00000d40| 69 6e 67 2d 6d 61 74 63 | 68 20 22 2e 2a 5c 5c 2e |ing-matc|h ".*\\.|
|00000d50| 65 6c 24 22 20 66 20 6c | 6d 2d 76 65 72 69 66 79 |el$" f l|m-verify|
|00000d60| 20 73 74 61 74 75 73 20 | 22 3a 22 20 69 6e 73 65 | status |":" inse|
|00000d70| 72 74 2d 61 74 2d 63 6f | 6c 75 6d 6e 20 6c 6d 2d |rt-at-co|lumn lm-|
|00000d80| 63 6f 6d 6d 65 6e 74 2d | 63 6f 6c 75 6d 6e 20 22 |comment-|column "|
|00000d90| 5c 6e 22 20 73 68 6f 77 | 6f 6b 20 22 4f 4b 5c 6e |\n" show|ok "OK\n|
|00000da0| 22 5d 20 35 5d 20 64 69 | 72 65 63 74 6f 72 79 2d |"] 5] di|rectory-|
|00000db0| 66 69 6c 65 73 20 66 69 | 6e 64 2d 66 69 6c 65 20 |files fi|nd-file |
|00000dc0| 6c 6d 2d 73 75 6d 6d 61 | 72 79 20 22 43 61 6e 27 |lm-summa|ry "Can'|
|00000dd0| 74 20 66 69 6e 64 20 61 | 20 70 61 63 6b 61 67 65 |t find a| package|
|00000de0| 20 73 75 6d 6d 61 72 79 | 22 20 6c 6d 2d 63 6f 64 | summary|" lm-cod|
|00000df0| 65 2d 6d 61 72 6b 20 22 | 43 61 6e 27 74 20 66 69 |e-mark "|Can't fi|
|00000e00| 6e 64 20 61 20 63 6f 64 | 65 20 73 65 63 74 69 6f |nd a cod|e sectio|
|00000e10| 6e 20 6d 61 72 6b 65 72 | 22 20 2d 31 20 6c 6f 6f |n marker|" -1 loo|
|00000e20| 6b 69 6e 67 2d 61 74 20 | 22 3b 3b 3b 20 22 20 22 |king-at |";;; " "|
|00000e30| 65 6e 64 73 20 68 65 72 | 65 22 20 22 43 61 6e 27 |ends her|e" "Can'|
|00000e40| 74 20 66 69 6e 64 20 61 | 20 66 6f 6f 74 65 72 20 |t find a| footer |
|00000e50| 6c 69 6e 65 22 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |line" ki|ll-buffe|
|00000e60| 72 5d 20 34 20 22 5c 0a | 43 68 65 63 6b 20 74 68 |r] 4 "\.|Check th|
|00000e70| 61 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |at the c|urrent b|
|00000e80| 75 66 66 65 72 20 28 6f | 72 20 46 49 4c 45 20 69 |uffer (o|r FILE i|
|00000e90| 66 20 67 69 76 65 6e 29 | 20 69 73 20 69 6e 20 70 |f given)| is in p|
|00000ea0| 72 6f 70 65 72 20 66 6f | 72 6d 61 74 2e 0a 49 66 |roper fo|rmat..If|
|00000eb0| 20 46 49 4c 45 20 69 73 | 20 61 20 64 69 72 65 63 | FILE is| a direc|
|00000ec0| 74 6f 72 79 2c 20 72 65 | 63 75 72 73 65 20 6f 6e |tory, re|curse on|
|00000ed0| 20 69 74 73 20 66 69 6c | 65 73 20 61 6e 64 20 67 | its fil|es and g|
|00000ee0| 65 6e 65 72 61 74 65 20 | 61 20 72 65 70 6f 72 74 |enerate |a report|
|00000ef0| 20 69 6e 74 6f 0a 61 20 | 74 65 6d 70 6f 72 61 72 | into.a |temporar|
|00000f00| 79 20 62 75 66 66 65 72 | 2e 22 5d 29 0a 28 64 65 |y buffer|."]).(de|
|00000f10| 66 61 6c 69 61 73 20 27 | 6c 6d 2d 73 79 6e 6f 70 |falias '|lm-synop|
|00000f20| 73 69 73 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |sis #[(&|optional|
|00000f30| 20 66 69 6c 65 20 73 68 | 6f 77 61 6c 6c 29 20 22 | file sh|owall) "|
|00000f40| 08 83 1a 00 c1 08 21 83 | 1a 00 c2 c3 c4 21 21 88 |......!.|.....!!.|
|00000f50| c5 20 88 c6 c7 c8 08 21 | 5c 22 87 8a 08 83 23 00 |. .....!|\"....#.|
|00000f60| c9 08 21 88 ca 20 08 83 | 2d 00 cb 70 21 88 29 87 |..!.. ..|-..p!.).|
|00000f70| 22 20 5b 66 69 6c 65 20 | 66 69 6c 65 2d 64 69 72 |" [file |file-dir|
|00000f80| 65 63 74 6f 72 79 2d 70 | 20 73 77 69 74 63 68 2d |ectory-p| switch-|
|00000f90| 74 6f 2d 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |to-buffe|r get-bu|
|00000fa0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 6c 6d |ffer-cre|ate "*lm|
|00000fb0| 2d 76 65 72 69 66 79 2a | 22 20 65 72 61 73 65 2d |-verify*|" erase-|
|00000fc0| 62 75 66 66 65 72 20 6d | 61 70 63 61 72 20 23 5b |buffer m|apcar #[|
|00000fd0| 28 66 29 20 22 c0 c1 5c | 6e 5c 22 85 2d 00 c3 5c |(f) "..\|n\".-..\|
|00000fe0| 6e 21 89 1c 83 1d 00 5c | 6e c5 b1 02 88 c6 0e 07 |n!.....\|n.......|
|00000ff0| 5c 66 c8 23 82 2c 00 0e | 09 85 2c 00 5c 6e c5 b1 |\f.#.,..|..,.\n..|
|00001000| 02 88 c6 0e 07 ca 5c 22 | 29 87 22 20 5b 73 74 72 |......\"|)." [str|
|00001010| 69 6e 67 2d 6d 61 74 63 | 68 20 22 2e 2a 5c 5c 2e |ing-matc|h ".*\\.|
|00001020| 65 6c 24 22 20 66 20 6c | 6d 2d 73 79 6e 6f 70 73 |el$" f l|m-synops|
|00001030| 69 73 20 73 79 6e 20 22 | 3a 22 20 69 6e 73 65 72 |is syn "|:" inser|
|00001040| 74 2d 61 74 2d 63 6f 6c | 75 6d 6e 20 6c 6d 2d 63 |t-at-col|umn lm-c|
|00001050| 6f 6d 6d 65 6e 74 2d 63 | 6f 6c 75 6d 6e 20 22 5c |omment-c|olumn "\|
|00001060| 6e 22 20 73 68 6f 77 61 | 6c 6c 20 22 4e 41 5c 6e |n" showa|ll "NA\n|
|00001070| 22 5d 20 35 5d 20 64 69 | 72 65 63 74 6f 72 79 2d |"] 5] di|rectory-|
|00001080| 66 69 6c 65 73 20 66 69 | 6e 64 2d 66 69 6c 65 20 |files fi|nd-file |
|00001090| 6c 6d 2d 73 75 6d 6d 61 | 72 79 20 6b 69 6c 6c 2d |lm-summa|ry kill-|
|000010a0| 62 75 66 66 65 72 5d 20 | 34 20 22 5c 0a 47 65 6e |buffer] |4 "\.Gen|
|000010b0| 65 72 61 74 65 20 61 20 | 73 79 6e 6f 70 73 69 73 |erate a |synopsis|
|000010c0| 20 6c 69 73 74 69 6e 67 | 20 66 6f 72 20 74 68 65 | listing| for the|
|000010d0| 20 62 75 66 66 65 72 20 | 6f 72 20 74 68 65 20 67 | buffer |or the g|
|000010e0| 69 76 65 6e 20 46 49 4c | 45 20 69 66 20 67 69 76 |iven FIL|E if giv|
|000010f0| 65 6e 2e 0a 49 66 20 46 | 49 4c 45 20 69 73 20 61 |en..If F|ILE is a|
|00001100| 20 64 69 72 65 63 74 6f | 72 79 2c 20 72 65 63 75 | directo|ry, recu|
|00001110| 72 73 65 20 6f 6e 20 69 | 74 73 20 66 69 6c 65 73 |rse on i|ts files|
|00001120| 20 61 6e 64 20 67 65 6e | 65 72 61 74 65 20 61 20 | and gen|erate a |
|00001130| 72 65 70 6f 72 74 20 69 | 6e 74 6f 0a 61 20 74 65 |report i|nto.a te|
|00001140| 6d 70 6f 72 61 72 79 20 | 62 75 66 66 65 72 2e 20 |mporary |buffer. |
|00001150| 20 49 66 20 53 48 4f 57 | 41 4c 4c 20 69 73 20 6f | If SHOW|ALL is o|
|00001160| 6e 2c 20 61 6c 73 6f 20 | 67 65 6e 65 72 61 74 65 |n, also |generate|
|00001170| 20 61 20 6c 69 6e 65 20 | 66 6f 72 20 66 69 6c 65 | a line |for file|
|00001180| 73 0a 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 69 |s.which |do not i|
|00001190| 6e 63 6c 75 64 65 20 61 | 20 72 65 63 6f 67 6e 69 |nclude a| recogni|
|000011a0| 7a 61 62 6c 65 20 73 79 | 6e 6f 70 73 69 73 2e 22 |zable sy|nopsis."|
|000011b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 6d |]).(defa|lias 'lm|
|000011c0| 2d 72 65 70 6f 72 74 2d | 62 75 67 20 23 5b 28 74 |-report-|bug #[(t|
|000011d0| 6f 70 69 63 29 20 22 c0 | 20 c1 20 c2 20 1b 1c 1d |opic) ".| . . ...|
|000011e0| c6 c7 5c 66 83 19 00 5c | 66 40 c8 5c 66 41 c9 52 |..\f...\|f@.\fA.R|
|000011f0| 82 1b 00 0e 5c 6e 0e 0b | 23 88 64 62 88 cc 0d 0b |....\n..|#.db....|
|00001200| 83 2e 00 cd 0b 50 82 2f | 00 ce cf b1 04 88 d0 d1 |.....P./|........|
|00001210| d2 21 21 2b 87 22 20 5b | 62 75 66 66 65 72 2d 6e |.!!+." [|buffer-n|
|00001220| 61 6d 65 20 6c 6d 2d 6d | 61 69 6e 74 61 69 6e 65 |ame lm-m|aintaine|
|00001230| 72 20 6c 6d 2d 76 65 72 | 73 69 6f 6e 20 76 65 72 |r lm-ver|sion ver|
|00001240| 73 69 6f 6e 20 61 64 64 | 72 20 70 61 63 6b 61 67 |sion add|r packag|
|00001250| 65 20 6d 61 69 6c 20 6e | 69 6c 20 22 20 3c 22 20 |e mail n|il " <" |
|00001260| 22 3e 22 20 62 75 67 2d | 67 6e 75 2d 65 6d 61 63 |">" bug-|gnu-emac|
|00001270| 73 20 74 6f 70 69 63 20 | 22 5c 6e 49 6e 20 22 20 |s topic |"\nIn " |
|00001280| 22 20 76 65 72 73 69 6f | 6e 20 22 20 22 22 20 22 |" versio|n " "" "|
|00001290| 5c 6e 5c 6e 22 20 6d 65 | 73 73 61 67 65 20 73 75 |\n\n" me|ssage su|
|000012a0| 62 73 74 69 74 75 74 65 | 2d 63 6f 6d 6d 61 6e 64 |bstitute|-command|
|000012b0| 2d 6b 65 79 73 20 22 54 | 79 70 65 20 5c 5c 5b 6d |-keys "T|ype \\[m|
|000012c0| 61 69 6c 2d 73 65 6e 64 | 5d 20 74 6f 20 73 65 6e |ail-send|] to sen|
|000012d0| 64 20 62 75 67 20 72 65 | 70 6f 72 74 2e 22 5d 20 |d bug re|port."] |
|000012e0| 36 20 22 5c 0a 52 65 70 | 6f 72 74 20 61 20 62 75 |6 "\.Rep|ort a bu|
|000012f0| 67 20 69 6e 20 74 68 65 | 20 70 61 63 6b 61 67 65 |g in the| package|
|00001300| 20 63 75 72 72 65 6e 74 | 6c 79 20 62 65 69 6e 67 | current|ly being|
|00001310| 20 76 69 73 69 74 65 64 | 20 74 6f 20 69 74 73 20 | visited| to its |
|00001320| 6d 61 69 6e 74 61 69 6e | 65 72 2e 0a 50 72 6f 6d |maintain|er..Prom|
|00001330| 70 74 73 20 66 6f 72 20 | 62 75 67 20 73 75 62 6a |pts for |bug subj|
|00001340| 65 63 74 2e 20 20 4c 65 | 61 76 65 73 20 79 6f 75 |ect.  Le|aves you|
|00001350| 20 69 6e 20 61 20 6d 61 | 69 6c 20 62 75 66 66 65 | in a ma|il buffe|
|00001360| 72 2e 22 20 22 73 42 75 | 67 20 53 75 62 6a 65 63 |r." "sBu|g Subjec|
|00001370| 74 3a 20 22 5d 29 0a 28 | 70 72 6f 76 69 64 65 20 |t: "]).(|provide |
|00001380| 28 71 75 6f 74 65 20 6c | 69 73 70 2d 6d 6e 74 29 |(quote l|isp-mnt)|
|00001390| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+